home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / example5.2 < prev    next >
Text File  |  2007-02-28  |  2KB  |  68 lines
  1. 0010 READ NUM
  2. 0020 FOR ITEM:=1 TO NUM DO
  3. 0030 READ AC,DN,WIDTH,HITE
  4. 0040 BOX(AC,DN,WIDTH,HITE)
  5. 0050 ENDFOR ITEM
  6. 0060 //
  7. 0070 READ NUM
  8. 0080 FOR ITEM:=1 TO NUM DO
  9. 0090 READ AC,DN,WIDTH
  10. 0100 ROW(AC,DN,WIDTH)
  11. 0110 ENDFOR ITEM
  12. 0120 //
  13. 0130 READ NUM
  14. 0140 FOR ITEM:=1 TO NUM DO
  15. 0150 READ AC,DN,WIDTH
  16. 0160 ROW(AC,DN,WIDTH)
  17. 0170 ENDFOR ITEM
  18. 0180 //
  19. 0190 READ NUM
  20. 0200 FOR ITEM:=1 TO NUM DO
  21. 0210 READ AC,DN,HITE
  22. 0220 COL(AC,DN,HITE)
  23. 0230 ENDFOR ITEM
  24. 0240 //
  25. 0250 READ NUM
  26. 0260 FOR ITEM:=1 TO NUM DO
  27. 0270 READ AC,DN
  28. 0280 POINT(AC,DN)
  29. 0290 ENDFOR ITEM
  30. 0300 //
  31. 0310 PROC BOX(AC,DN,WIDTH,HITE) 
  32. 0320 FOR LINE:=DN TO DN+HITE-1 DO
  33. 0330 ROW(AC,LINE,WIDTH)
  34. 0340 ENDFOR LINE
  35. 0350 ENDPROC BOX
  36. 0360 PROC ROW(AC,DN,WIDTH) 
  37. 0370 FOR A:=AC TO AC+WIDTH-1 DO
  38. 0380 POINT(A,DN)
  39. 0390 ENDFOR A
  40. 0400 ENDPROC ROW
  41. 0410 PROC COL(AC,DN,HITE) 
  42. 0420 FOR D:=DN TO DN+HITE-1 DO
  43. 0430 POINT(AC,D)
  44. 0440 ENDFOR D
  45. 0450 ENDPROC COL
  46. 0460 PROC POINT(AC,DN) 
  47. 0470 CURSOR(AC-20,DN)
  48. 0480 PRINT "*"
  49. 0490 ENDPROC POINT
  50. 1000 DATA 2,20,7,31,13,51,13,10,7
  51. 1010 DATA 2,10,3,61,10,22,61
  52. 1020 DATA 2,10,3,19,70,3,19
  53. 1030 DATA 2,30,20,50,20
  54. 9000 //
  55. 9010 //CURSOR IS FORMAT OF BOOK
  56. 9020 //IT CALLS REAL'CURSOR WHICH FOLLOWS CBM COMAL METHOD
  57. 9030 //
  58. 9040 PROC CURSOR(ACROSS,DOWN) CLOSED
  59. 9050 ROW':=DOWN; COL':=ACROSS
  60. 9060 REAL'CURSOR(ROW',COL')
  61. 9070 ENDPROC CURSOR
  62. 9080 PROC REAL'CURSOR(ROW',COL') CLOSED
  63. 9090 PRINT CHR$(19), //HOME
  64. 9100 FOR ROWS:=1 TO ROW' DO PRINT CHR$(17), //DOWN
  65. 9110 FOR COLS:=1 TO COL' DO PRINT CHR$(29), //RIGHT
  66. 9120 ENDPROC REAL'CURSOR
  67. 9130 //
  68.